1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IF UW = 0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IF UL = 0THENUL=39
45 GETUI$:IFUI$ = ""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA = 13 AND UR > 0THENPOKEUC,1:PRINT" [157]";:GOTO70
55 IF UA = 20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IF UR = ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
70 IF UR$ = UX$THENPRINT"[157] ";:GOTO145
75 FORUI=URTO1STEP-1:IF MID$(UR$,UI,1) = " "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IF LEN(US$) = 0THEN110
100 FORUI=1TOLEN(US$):IF UI$ < > MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IF UA = 46THENRETURN
115 IF UA = 32 AND UR < > 0THENRETURN
120 IF UA > 47 AND UA < 58THENRETURN
125 IF UA > 64 AND UA < 91THENRETURN
130 IF UA < 193 OR UA > 218THENUI$="":RETURN
135 IF PEEK(UT) = UU%THENUI$=CHR$(UA-128)
140 RETURN
145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
150 UZ=1:UV%=PEEK(UT):GOTO300
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IF UW = 0THENPOKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IF UW = 0THENSYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
300 PRINT"[147]":POKEUT,UU%:IF UW = 0THENPOKEUY,12:POKEUX,6
305 PRINT"                M E N U E"
310 PRINT"    --------------------------------"
315 PRINT"       1.   SPIELBEGINN"
320 PRINT"       2.   ANLEITUNG"
325 PRINT"       3.   HINWEISE / UEBERSETZER"
330 PRINT"       4.   ENDE"
335 PRINT"    --------------------------------"
340 PRINT"       DRUECK' EINE ZIFFER (1-4) ";
345 UL=1:US$="1234"
347 GOSUB35:US$=""
350 ONVAL(UR$)GOSUB1000,400,500,390
355 GOTO300
370 IF UZ = 1THENSYSUP%:GOTO155
375 RETURN
390 SYSUE:PRINT"[154][147]":IF UW = 0THENPOKEUY,6:POKEUX,14:SYSUU,14
395 CLR:END
400 PRINT"[147]":POKEUT,UL%:IF UW = 0THENPOKEUY,11:POKEUX,12
405 UT$=" [215]ACHMANN":UH=1:UP=0:UG$="[193]NLEITUNG":GOSUB850
410 PRINT"  [201]CH ZEIGE DIR EINE [211]TADTKARTE."
412 PRINT" [196]ORT MUSST DU PATROULLIEREN, DAMIT"
414 PRINT" SICHER IST, DASS NICHTS PASSIERT."
416 PRINT" [196]ABEI DARFST DU AUF KEINER STRASSE"
418 PRINT" MEHR ALS [197][201][206][205][193][204] GEHEN. [197]CKPUNKTE"
420 PRINT" DARFST DU ABER MEHRMALS UEBERQUEREN."
422 PRINT" [198]ALLS DU [208]ROBLEME HABEN SOLLTEST,"
424 PRINT" DRUECKE 'Z' BEI MEINER NAECHSTEN"
426 PRINT" [198]RAGE. - [201]CH BRINGE DICH DANN ZUM"
428 PRINT" [211]PIELBEGINN ZURUECK."
485 GOSUB835
490 IF UZ = 1THENSYSUP%:GOTO155
495 RETURN
500 PRINT"[147]":POKEUT,UL%:IF UW = 0THENPOKEUY,2:POKEUX,10
501 UT$=" [215]ACHMANN":UH=1:UP=0:UG$="[200]INWEISE":GOSUB850
502 PRINT"     [206]ACH UNSEREM BESTEN [215]ISSEN IST"
503 PRINT"     DIESES [208]ROGRAMM [208]UBLIC [196]OMAIN."
504 PRINT"     [198]ALLS NICHT, GEBT UNS BITTE"
505 PRINT"     [206]ACHRICHT:"
506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
507 PRINT"          3370 [208]HARMACY [193]VE.
508 [153]"          ATNGINCOURT, (null)NTARIO"
509 [153]"          LENANADA, (null)1(null) 2(null)4"
510 [153]"          (416) 499-4292"
511 UH[178]1:[141]835:[141]850
512 [153]"      (null)ROGRAM (null)AME: (null)ACHMANN"
513 [153]"      CHR$ESCHRIEBEN VON: (null)AC (null)GLESBY"
514 [153]"      PEEKEARBEIET   VON: (null)IKE STR$EMMER
520 PRINT:PRINT:PRINT:PRINT:PRINT"        [196][197][213][212][211][195][200][197][160][213][197][194][197][210][211][197][212][218][213][206][199] VON"
521 PRINT:PRINT"           [212][160][201][160][199][160][197][160][210][160]- [195][160][210][160][197][160][215]"
522 PRINT:PRINT"             [198]ELDSTRASSE  17"
523 PRINT:PRINT"           [196] -  6492 [211][201][206][206][212][193][204] 1"
585 GOSUB835
590 IF UZ = 1THENSYSUP%:GOTO155
595 RETURN
700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
705 [153]"      LOAD THE 'CBM 4032' PROGRAM":[128]
800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
801 [129]I[178]1[164]38:[153]" WAIT";:[130]
802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
805 [153]"STEP  WAIT
806 PRINT" [146]   [146][169]
807 [153]" WAIT  TAB((null)WAIT O M M O D O R E
808 PRINT"[223]  [146]
809 [153]" BILDUNGS 
810 PRINT" SOFTWARE
811 [153]" 1983
812 PRINTLEFT$(UD$,24);"DRUECK SPACE ODER WARTE[146]"UC$:UI=0
813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
814 GOTO300
835 POKEUN,0:PRINTLEFT$(UD$,24);"      DRUECK SPACE ZUR BESTAETIGUNG[146]"
840 GETUI$:IF UI$ < > " "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IF UH = 0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HILFE - DRUECK 'Z'<RETURN>"
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);"           EINEN AUGENBLICK....     ":RETURN
900 UX$="Z":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
902 IF UW = 0THENUS=1024:U1=209:U2=210:U3=211
903 IF UW = 0THENU4=214:UC=204:UB=2048:UX=53280:UD=2064
904 UC$=CHR$(155):UV=1214:IF UW = 0THENUF=196:UV=2238
905 UD$="":UP$="                                      "
906 IF UW = 0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
907 DIMLC(25),DS(25),LS(25)
909 RETURN
910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
915 IF PEEK(US+40) < > 96THEN700
920 IF (FRE(0)-(SGN(FRE(0)) < 0)*65536) > 500THEN935
925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
930 PRINT"MEMORY TO RUN THIS PROGRAM !":END
935 PRINT"[147]"UC$:IF UW = 0THEN965
940 IF UF = 60 OR UF = 108 OR UF = 124THEN950
945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
950 IF UW = 160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
955 IF UW < > 1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":END
960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
965 SYSUD
970 GOSUB800:GOTO300
1000 IF UZ = 1THENSYSUP%:SYSUP%:UZ=0
1001 PRINT"[147]"UC$;:RESTORE:IF UW = 0THENPOKEUY,6:POKEUX,6
1002 CLR:GOSUB900
1003 UT$=" WACHMANN "
1010 REM ***WATCHPERSON***
1020 REM
1030 REM (C) MAC OBLESBY MARCH 1980
1040 REM
1050 REM LAST REVISED: 3/22/80 22:30
1060 REM
1070 REM COPYRIGHT 1980 BY MAC OBLESBY
1080 REM
1090 REM
1100 REM INITIALIZATION
1110 POKE59468,12:REM GRAPHICS MODE
1130 V$(1)="O[146]GLE-[157][157][157][157][157]BORO
1140 V$(2)[178]"KWAITRUNK-CMDCMDCMDCMDCMDCMDTOWN"
1150 V$(3)[178]"LWAITIND-CMDCMDCMDCMDCMDBURG"
1160 [129]J[178]1[164]4:[135]DA(J),DA$(J):[130]:[143] DIRECTION ALLOWED
1170 [131]-40," N ",1," O ",40," S ",-1," W "
1180 SP$[178]"         "
1190 DN$[178]""
1200 SQ$[178]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
1210 [143]
1220 [129]I[178]1[164]40:ZZ$[178]ZZ$[170][199](20):[130]I:[143] LINE 1150=40 DEL
1230 VN[178]1:[141]2220
1240 [153]" ";DN$;"WILLKOMMEN, WACHMANN..."
1250 [143]
1260 [141]835
1270 UH[178]0:UP[178]0:UG$[178]"":[141]850
1280 [153]" ALS WACHMANN MUSST DU IN DER STADT"
1290 [153]" DURCH ALLE STRASSEN GEHEN, OHNE AUF"
1300 [153]" EINER STRASSE ZWEIMAL ZU LAUFEN."
1310 [153]" SUCH DIR'S AUS: OWAITGLEBORO, KWAITRUNKTOWN,"
1320 [153]" LWAITINDBURG. LINDBURG IST AM SCHWERSTEN."
1330 [153]" BITTE DRUECK O, K, ODER L : ";
1340 UL[178]1:US$[178]"OKLZ":[141]35:XA$[178]UR$
1350 [139] XA$ [178] "O"[167]VN[178]1:[137]1390
1360 [139] XA$ [178] "K"[167]VN[178]2:[137]1390
1370 [139] XA$ [178] "L"[167]VN[178]3:[137]1390
1380 XX$[178]""[170]XX$:[137]1340
1390 [139] N0$ [178] "N"[167]1580
1400 A$[178]"FUSSABDRUECKE"
1410 [153]"LOAD";:[139]UW[178]0[167][158]UU,15
1420 [129]J[178]1[164][195](A$):[153][202](A$,J,1);:[141]2200:[130]
1430 A0[178]US[170]183:[151]A0,87
1440 [129]J[178]1[164]13:[141]2200:A0[178]A0[171]1:[151]A0,87:[130]
1450 [129]J[178]1[164]4:[141]2200:A0[178]A0[171]40:[151]A0,87:[130]
1460 [129]J[178]1[164]9:[141]2200:A0[178]A0[170]1:[151]A0,87:[130]
1470 [129]J[178]1[164]6:[141]2200:A0[178]A0[170]40:[151]A0,87:[130]
1480 [129]J[178]1[164]15:[141]2200:[151]A0[171]J,87:[130]
1490 [129]J[178]16[164]18:[141]2200:[151]A0[171]J,46:[130]
1500 [141]2210
1510 [153]"";
1520 [153]" ALSO: DU DARFST NICHTWAIT ZWEIMAL AUF"
1530 [153]" EINER STRASSE GEHEN, ABER DU DARFST"
1540 [153]" OEFTERS AN ECKEN KOMMEN."
1541 [153]:[153]"       BEDENKE:"
1550 [153]" ALLEWAIT STRASSEN MUESSEN BEGANGEN WERDEN!"
1551 [153]:[153]"       V I E L   G L U E C K !"
1560 [143] XX$="DRUECK RETURNWAIT ZUM ANFANGEN..."
1570 [141]835
1580 [141]2220
1590 Z0[178]1
1600 [129]J[178]1[164]NC:[151]US[171]1[170]LC(J),J:[130]
1620 [153]" WO WILLST DU STARTEN: ?";
1630 UL[178]1:US$[178][200]("ABCDEFGHIJKLMNOPQRSTUVWXY",NC)[170]"Z":[141]35:XA$[178]UR$
1635 [153]"                         "
1640 [139] [198](XA$) [177] 64 [175] [198](XA$) [179] 65[170]NC[167]1660
1650 XX$[178]""[170]XX$:[137]1630
1660 Z0[178]US[171]1[170]LC([198](XA$)[171]64)
1670 XX$[178]"DRUECK X UM DEN STARTPUNKT ZU AENDERN."
1680 A$[178]""
1690 [129]J[178]1[164]4
1700 [139] [194](Z0[170]DA(J)) [178] 32[167]A$[178]A$[170]DA$(J)
1710 [130]
1720 [153]" WELCHE RICHTUNG ?  WEGE:";A$
1725 [153]"ON";
1730 UH[178]0:UL[178]1:US$[178]A$[170]"XZ":[141]35:XA$[178]UR$
1740 [139] S [177] 0[167]1760
1750 [139] XA$ [178] "X"[167][153]ZZ$;ZZ$;ZZ$:[137]1590
1760 [139] XA$ [178] "N"[167] D[178][171]40
1770 [139] XA$ [178] "O"[167] D[178]1
1780 [139] XA$ [178] "S"[167] D[178]40
1790 [139] XA$ [178] "W"[167] D[178][171]1
1800 [139] [194](Z0[170]D) [179] [177] 32[167]A$[178]""[170]A$:[137]1720
1810 [139] S [177] 0 [167]1850
1820 [129]J[178]1[164]NC:[151]LC(J)[170]US[171]1,32:[130]
1830 XX$[178]""
1840 [153]ZZ$;ZZ;
1850 [153]ZZ$;ZZ$;
1860 S[178]S[170]1:[151]Z0,87
1870 CR[178]0
1880 Z0[178]Z0[170]D:[151]Z0,87
1890 S[178]S[170]1
1900 [129]J[178]1[164]4
1910 [139] [194](Z0[170]DA(J)) [178] 32[167]CR[178]CR[170]1:D1[178]DA(J)
1920 [130]
1930 [139] CR [178] 0[167]1970
1940 [139] CR [178] 1 [176] CR [178] 11[167]D[178]D1:[137]1870
1950 [139] CR [178] 10[167]1980
1960 [139] CR [179] 5 [176] CR [178] 12[167]D[178]0:[137]1680
1970 [139] [194](Z0[170]D) [178] 87[167]CR[178]10:[137]1880
1980 [143] END OF GAME CELEBRATION
1990 A$[178]" DU SOLLTEST ALLEWAIT STRASSEN BEGEHEN!"
2000 [139] S [178] TS[167]A$[178]" PRIMA!! DU GINGST AUF JEDER STRASSE!!!"
2010 [129]J[178]1[164]3
2020 [151]59409,52:[143] SCREEN OFF
2030 [129]K[178]1[164]300:[130]
2040 [151]59409,60:[143] SCREEN ON
2050 [129]K[178]1[164]300:[130]
2060 [130]
2070 [129]J[178]1[164]5
2080 [153]"";DN$;A$
2090 [129]K[178]1[164]300:[130]
2100 [139] J[173]2 [178] [181](J[173]2)[167][153]"WAIT";:[137]2120
2110 [153]"";
2120 [130]
2130 [153]"WAIT":[141]835:[156]:[141]900:[137]300
2190 [143] VARIOUS DELAYS
2200 [129]X9[178]1[164]25:[130]:[142]
2210 [129]X9[178]1[164]200:[130]:[142]
2220 [143] READ VILLAGE DATA AND DRAW IT
2230 [139]VC [178] VN[167]2310
2240 [135]LH,WH:[143] LENGTH, WIDTH OF REVERSE FIELD
2250 [135]NC,TS:[143] NUMBER OF CORNERS, TOTAL STEPS
2260 [129]J[178]1[164]NC:[135]LC(J):[130]:[143] LOCATION OF CORNERS (HOME=1)
2270 [135]NS:[143] NUMBER OF STREETS TO DRAW
2280 [129]J[178]1[164]NS:[135]DS(J),LS(J):[130]:[143] DIRECTION, LENGTH OF STREETS TO DRAW
2290 [135]SD:[143] START DRAWING WHERE?
2300 VC[178]VC[170]1:[137]2230
2310 [153]"LOAD";
2320 A$[178][200](SP$,(40[171]LH)[173]2)[170]""[170][200](SQ$,LH)
2330 [129]J[178]1[164]WH:[153]A$:[130]
2340 PX[178]US[171]1[170]SD
2350 [151]PX,32
2360 [129]I[178]1[164]NS
2370 [129]J[178]1[164]LS(I)
2380 PX[178]PX[170]DS(I):[151]PX,32
2390 [130]J
2400 [130]I
2410 [129]J[178]1[164]NC:[151]US[171]1[170]LC(J),J:[130]
2420 [153]" NCMD(null)CMDCMDCMDW-(null)-OCMDCMDCMD(null)CMDS"
2430 [153]"KARTECMDCMDCMDCMDCMDVONCMDCMDCMD";V$(VN)
2435 [153]"FUERCMDCMDCMDCMDHILFECMDCMDCMDCMDCMDDRUECKCMDCMDCMDCMDCMDCMD'Z'CMDCMDCMD"
2440 [142]
2450 [143] DATA FOR VILLAGES
2460 [143] OGLEBORO
2470 [131]22,17:[143] LH,WH
2480 [131]14,120:[143] NC,TS
2490 [131]56,65,171,176,185,190,336,345,350,496,505,510,611,625:[143]LC()
2500 [131]14:[143] NS
2510 [131]1,19,40,8,-1,5,40,3,-1,14,-40,11,1,5,40,8,1,14,-40,4
2520 [131]-1,14,-40,7,1,9,40,10:[143] DS(),LS()
2530 [131]171:[143]SD
2540 [143] KUNKTOWN
2550 [131]24,19:[143] LH,WH
2560 [131]19,157:[143]NC,TS
2570 [131]54,63,67,170,174,183,187,191,334,343,347
2580 [131]454,463,467,570,574,583,694,711:[143] LC()
2590 [131] 14:[143] NS
2600 [131]1,21,40,13,-1,17,-40,6,1,13,-40,10,-1,13,40,7,1,13
2610 [131]-40,7,-1,4,40,13,-1,13,-40,10:[143] DS(),LS()
2620 [131]170:[143] SD
2630 :
2640 [143] LINDBURG
2650 [131]28,20:[143]LH,WH
2660 [131]25,195:[143] NC,TS
2670 [131]56,65,69,73,172,176,185,189,328,332,336,345,349
2680 [131]492,496,505,509,612,616,625,629,728,732,736,753:[143] LC()
2690 [131]20:[143] NS
2700 [131]1,21,40,7,-1,17,40,3,-1,4,-40,10,1,4,40,4,1,17,40,3,-1,4
2710 [131]-40,14,-1,9,40,17,1,17,-40,17,-1,4,40,3,-1,17,40,4:[143]DS(), LS()
2720 [131]328:[143] SD
2725 [131]328:[143] EXCESS DATA TO PREVENT AN END-OF-DATA, BEFORE A RESTORE
2730 [143] GET A CHARACTER
2740 [153]"";DN$;"";
2750 [139]XX$ [179] [177] ""[167][153]XX$
2760 [161]XA$:[139] XA$ [179] [177] ""[167]2760:[143] CLEAR THE BUFFER
2770 [161]XA$:[141]2790:[139] XA$ [178] ""[167]2770
2775 [139] [198](XA$) [178] 90 [167] UR$[178]UX$:[141] 70:[143] HELP REQUEST
2780 [142]
2790 [143] BLINK
2800 [139] Z0 [178] 0[167]2850
2810 [139] TI[171]TT [179] 20[167]2850
2820 [139] [194](Z0) [179] 128[167][151]Z0,[194](Z0)[170]128:[137]2840
2830 [151]Z0,[194](Z0)[171]128
2840 TT[178]TI
2850 [142]